home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 147 / Tiger_Disk_147_19xx_Tiger-Crew-Disk_de_Side_B.d64 / ende -006- (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  30 lines
  1. 10 poke53280,.:poke53281,.:printchr$(147):v=53248:
  2. 12 fori=832to894:readd:pokei,d:next:poke2040,13
  3. 17 poke53249,120:poke53269,1:pokev+21,255:pokev+39,. :ifz>10then 190
  4. 18 forz=0to13:printtab(6)"[199]leich"tab(28)"[203]ommt [147][145]":poke646,int(rnd(0)*15)+0
  5. 19 :printchr$(14):     nextz
  6. 20 :print"[215]irklich,[215]ahrhaftigund[197]ndgueltig";:
  7. 21 :print"[152]     [196] [193] [211]              [197][160][206][160][196][160][197][160]!"::
  8. 25 forx=60to118:print"[156][169][166][158][255][129][161][161][161][223][169][169][169][156][255][223][169][223][169][223][149][161][161][161][223][169][223][169][223][169][169][223][169][129][169][255][223][169][161][161][161][150][223][169][219][166][169][223]";
  9. 30 y1=121+sqr(132*x-x*x):y2=121-sqr(132*x-x*x)+.249::pokev+39,16*rnd(0)
  10. 32 fory=y1toy2stepy1-y2:gosub90:nexty,x
  11. 34 forx=110to30step-5:y1=120-sqr(110*x-x*x):y2=120+sqr(110*x-x*x)/.2
  12. 37 fory=y1toy2stepy1-y2:gosub90:nexty,x
  13. 40 print"[147]          ":print"          ":print"          ":print"          "
  14. 45 goto17
  15. 90 poke53249,int(x):poke53248,int(y):return
  16. 150 data13,116,0,30,222,0,61,178,0,108,4,0,249,16,0,234,154,0
  17. 160 data210,8,0,105,64,128,104,135,128,48,8,0,48,36,0,32,24,0
  18. 170 data16,4,0,8,5,93,8,9,81,16,17,217,32,33,80,121,145,93
  19. 180 data214,248,0,244,244,0,207,100,0
  20. 190 ti$="000002":wait161,1:printchr$(14):           goto195:
  21. 195 print"[147]>   [206][160][213][160][206]   [201][160][211][160][212]   [215][160][201][160][210][160][203][160][204][160][201][160][195][160][200]:[146]   <";
  22. 200 print"[159]   [162][162]   [162][162]  [162]  [162] [162]    [162][160][160][162][160][160][162][162][160][160][160][185][185][160][160][185]
  23. 201 [153]"  newcloseclosenewclosenewcloseclosenew newcloseclosenewclosenewcloseclosecloseclosenewcloseclosenewclosenewcloseclosenewclosenewcloseclosenewclosenew
  24. 202 print"[156]  [162]    [162][160][160][160][160][162][160][160][162][160][162][160][160][160][160][162][160][160][162][160][162][160][160][160][160][162][160][160][160][160][162]
  25. 203 [153]"def    newnew new    newnewnewnew new    new  new  newnew   newnew  new
  26. 204 print"[158]  [160][160][160][162][160][162][160][160][160][160][162][160][160][162][160][162][160][160][160][160][162][160][160][162][160][160][160][160][162][160][160][160][160][162][160][162]
  27. 205 [153]"  newcloseclosenewclosenewcloseclosenewclosenewcloseclosenewclosenewcloseclosenewclosenewcloseclosenewclosenewcloseclosenewclosenewcloseclosenew
  28. 206 print"[129]   [162][162][160][160][160][162][162][160][160][162][160][160][162][160][162][162][162][162][160][160][162][162][160][160][160][162][162][160][160][160][162][162][160][160][162]
  29. 207 ti$[178]"000003":[146]161,1:[151]53272,21:[158]58253
  30.